home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / render_amiga.ifx.pre < prev    next >
Text File  |  2004-08-03  |  3KB  |  119 lines
  1. /*
  2.  * $VER: Render_Amiga.ifx.pre 2.5 (26.02.96)
  3.  *
  4.  * Written by Thomas Krehbiel
  5.  *
  6.  * Render to an Amiga display format.
  7.  *
  8.  * Inputs:
  9.  *    Word(Arg(1),1) = Sequence number
  10.  *    Word(Arg(1),2) = Total number of frames (N)
  11.  *
  12.  * Returns:
  13.  *    0 if successful, non-zero on failure
  14.  *
  15.  */
  16.  
  17. OPTIONS RESULTS
  18.  
  19. base = 'Autofx_RendAmiga_'
  20.  
  21. dithtype = GETCLIP(base||'DithType')
  22. dithdir  = GETCLIP(base||'DithDir')
  23. ditherr  = GETCLIP(base||'DithErr')
  24. ncolors  = GETCLIP(base||'Colors')
  25. monitor  = GETCLIP(base||'Monitor')
  26. horiz     = GETCLIP(base||'Horiz')
  27. vert     = GETCLIP(base||'Vert')
  28. lockpal  = GETCLIP(base||'LockPal')
  29.  
  30. IF dithtype = "" THEN dithtype = 1
  31. IF dithdir  = "" THEN dithdir  = 2
  32. IF ditherr  = "" THEN ditherr  = 0
  33. IF ncolors  = "" THEN ncolors  = 7
  34. IF monitor  = "" THEN monitor  = 0
  35. IF horiz    = "" THEN horiz    = 1
  36. IF vert     = "" THEN vert     = 1
  37. IF lockpal  = "" THEN lockpal  = 0
  38.  
  39. Gadget.1 = 'CYCLE 100  5 90 12 "Dither:"' dithtype '"None/Floyd/FloydR/EDD/Order"'
  40. Gadget.2 = 'CYCLE 200  5 90 12 " "' dithdir '"L-to-R/R-to-L/ZigZag"'
  41. Gadget.3 = 'CYCLE 300  5 90 12 " "' ditherr '"None/Low/Medium/High"'
  42. Gadget.4 = 'CYCLE 300 20 90 12 "Colors:"' ncolors '"2/4/8/16/32/64/128/256/HAM/HAM8"'
  43. Gadget.5 = 'CYCLE 100 34 90 12 "Mode:"' monitor '"Default/NTSC/PAL/VGA/Euro36/Euro72/Super72/DBLNTSC/DBLPAL"'
  44. Gadget.6 = 'CYCLE 200 34 90 12 " "' horiz '"Lores/Hires/S-Hires"'
  45. Gadget.7 = 'CYCLE 300 34 90 12 " "' vert '"No Lace/Lace"'
  46. Gadget.8 = 'CHECK 100 50 26 11 "Lock Palette?"' lockpal
  47. Gadget.9 = 'END'
  48.  
  49. NewComplexRequest '"Amiga Render Module Settings"' Gadget 410 68
  50. IF rc ~= 0 THEN EXIT rc
  51.  
  52. dithtype = result.1
  53. dithdir  = result.2
  54. ditherr  = result.3
  55. ncolors  = result.4
  56. monitor  = result.5
  57. horiz     = result.6
  58. vert     = result.7
  59. lockpal  = result.8
  60.  
  61. colorarray.0 = 2
  62. colorarray.1 = 4
  63. colorarray.2 = 8
  64. colorarray.3 = 16
  65. colorarray.4 = 32
  66. colorarray.5 = 64
  67. colorarray.6 = 128
  68. colorarray.7 = 256
  69. colorarray.8 = 'HAM'
  70. colorarray.9 = 'HAM8'
  71.  
  72. monarray.0 = 'DEFAULT'
  73. monarray.1 = 'NTSC'
  74. monarray.2 = 'PAL'
  75. monarray.3 = 'VGA'
  76. monarray.4 = 'EURO36'
  77. monarray.5 = 'EURO72'
  78. monarray.6 = 'SUPER72'
  79. monarray.7 = 'DBLNTSC'
  80. monarray.8 = 'DBLPAL'
  81.  
  82. horzarray.0 = 'LORES'
  83. horzarray.1 = 'HIRES'
  84. horzarray.2 = 'SUPERHI'
  85.  
  86. vertarray.0 = 'NOLACE'
  87. vertarray.1 = 'LACE'
  88.  
  89. origcolors = ncolors
  90.  
  91. IF ncolors = 8 THEN DO
  92.    ncolors = 3
  93.    hname = 'HAM'
  94.    END
  95. ELSE IF ncolors = 9 THEN DO
  96.    ncolors = 5
  97.    hname = 'HAM'
  98.    END
  99. ELSE
  100.    hname = horzarray.horiz
  101.  
  102. SetRender Amiga
  103. IF rc ~= 0 THEN EXIT rc
  104.  
  105. Render 'Colors' colorarray.ncolors
  106. Render 'Dither' dithtype dithdir ditherr
  107. Render 'Mode' hname vertarray.vert monarray.monitor
  108.  
  109. CALL SETCLIP(base||'DithType', dithtype)
  110. CALL SETCLIP(base||'DithDir', dithdir)
  111. CALL SETCLIP(base||'DithErr', ditherr)
  112. CALL SETCLIP(base||'Colors', origcolors)
  113. CALL SETCLIP(base||'Monitor', monitor)
  114. CALL SETCLIP(base||'Horiz', horiz)
  115. CALL SETCLIP(base||'Vert', vert)
  116. CALL SETCLIP(base||'LockPal', lockpal)
  117.  
  118. EXIT
  119.